<script>on mouseUpset cursor to watchpauseSqstopSqclose window (short name of this stack)end mouseUp</script>
</part>
<part>
<id>13</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>0</left>
<top>326</top>
<right>13</right>
<bottom>344</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>fcGatePath</name>
<script></script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>19</left>
<top>270</top>
<right>102</right>
<bottom>286</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>_FirstClass</name>
<script>on sq_initglobal gFCGateApplNameput bg fld "fcGatePath" into gFCGateApplNamereturn trueend sq_initon sq_startglobal gFCPath,gFCGateApplName,gFCGateEnableput gFCPath & gFCGateApplName into fcGateApplif not gFCGateEnable thenrunLog "FirstClass Gateway has been disabled"return trueelserunLog "Open FirstClass Gateway"end ifif there is a file fcGateAppl then -- the programopen fcGateApplelserunLog "Fail to open FirstClass Gateway"end ifreturn trueend sq_starton sq_idleglobal gFCGateEnable,gFCGateApplNameif not gFCGateEnable then return trueif gFCGateApplName is in the programs thenreturn falseelsereturn trueend ifend sq_idleon sq_endrunLog "FC Gateway session completed"return trueend sq_endon sq_killreturn trueend sq_kill</script>
<script>on sq_initglobal gFCGateApplNameglobal sqStackput long name of this stack into sqStackreturn trueend sq_initon sq_startglobal gListservName,gMainStackName,sqStack,gFCGateEnableif not gFCGateEnable then return truerunLog "Finishing FirstClass gateway"set lockMessages to trueset lockRecent to truelock screengo gMainStackNamesend "FCInBoxScan" to bg btn id 77go sqStackreturn trueend sq_starton sq_idleglobal sqStackif long name of this stack = sqStack then return truereturn falseend sq_idleon sq_endset lockMessages to falseset lockRecent to falseunlock screenreturn trueend sq_endon sq_killsq_endreturn trueend sq_kill</script>
</part>
<part>
<id>22</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>21</left>
<top>313</top>
<right>104</right>
<bottom>329</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>_Delay</name>
<script>on sq_initglobal lastTickput the ticks into lastTickreturn trueend sq_initon sq_startrunLog "Delay for 30 seconds"return trueend sq_starton sq_idleglobal lastTickif (the ticks - lastTick) 竕･ (30 * 60) then return truereturn falseend sq_idleon sq_endreturn trueend sq_endon sq_killreturn trueend sq_killon delayTaskglobal lastTick,delaySecif (the ticks - lastTick) 竕･ (delaySec * 60) then return truereturn falseend delayTask</script>
</part>
<part>
<id>23</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>23</left>
<top>332</top>
<right>106</right>
<bottom>348</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>_list</name>
<script>on sq_initglobal sqStackput long name of this stack into sqStackreturn trueend sq_initon sq_startglobal gListservName,gMainStackName,sqStackrunLog "Run all Lists"set lockMessages to trueset lockRecent to truelock screengo gMainStackNamerunProcess "list"go sqStackreturn trueend sq_starton sq_idleglobal sqStackif long name of this stack = sqStack then return truereturn falseend sq_idleon sq_endset lockMessages to falseset lockRecent to falseunlock screenrunLog "List session completed"return trueend sq_endon sq_killsq_endreturn trueend sq_kill</script>
</part>
<part>
<id>24</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>15</left>
<top>39</top>
<right>415</right>
<bottom>53</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>tBarFont</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>bar</name>
<script></script>
</part>
<part>
<id>25</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>18</left>
<top>11</top>
<right>367</right>
<bottom>33</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>display</name>
<script></script>
</part>
<part>
<id>26</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>232</left>
<top>181</top>
<right>315</right>
<bottom>201</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Pause</name>
<script>on mouseUptogglePauseend mouseUpon togglePause theModeif theMode 竕 "" then set name of bg btn id 26 to theModeif short name of bg btn id 26 = "Pause" thenset name of bg btn id 26 to "Resume"pauseSqelseset name of bg btn id 26 to "Pause"startSqend ifend togglePause</script>
</part>
<part>
<id>27</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>21</left>
<top>351</top>
<right>104</right>
<bottom>367</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>_listserver</name>
<script>on sq_initglobal sqStackput long name of this stack into sqStackreturn trueend sq_initon sq_startglobal gListservName,gMainStackName,sqStackrunLog "Run Listserver: '" & gListservName & "'"set lockMessages to trueset lockRecent to truelock screengo gMainStackNamerunProcess "listserv"go sqStackreturn trueend sq_starton sq_idleglobal sqStackif long name of this stack = sqStack then return truereturn falseend sq_idleon sq_endset lockMessages to falseset lockRecent to falseunlock screenrunLog "Listserver session completed"return trueend sq_endon sq_killsq_endreturn trueend sq_kill</script>
</part>
<part>
<id>28</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>19</left>
<top>251</top>
<right>102</right>
<bottom>267</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>_FC_CheckMail</name>
<script>on sq_initglobal sqStackput long name of this stack into sqStackreturn trueend sq_initon sq_startglobal gListservName,gMainStackName,sqStack,gFCGateEnableif not gFCGateEnable then return truerunLog "Preparing FirstClass gateway"set lockMessages to trueset lockRecent to truelock screengo gMainStackNamesend "processUser" to bg btn id 77go sqStackreturn trueend sq_starton sq_idleglobal sqStackif long name of this stack = sqStack then return truereturn falseend sq_idleon sq_endset lockMessages to falseset lockRecent to falseunlock screenreturn trueend sq_endon sq_killsq_endreturn trueend sq_kill</script>
<script>on mouseUprunUUPCend mouseUpon Sq_Initif bg fld "configPath" = "" thenkillCurSqreturn trueend ifglobal uRetry, sqRetryglobal delaySec,logLastStatusput 0 into logLastStatusif sqRetry = true thenput false into sqRetryelseput line 1 of bg fld "dialRetry" into uRetryif uRetry 竕 "竏" thenif uRetry = 0 then put 1 into uRetry -- to make sure it call at least onceend ifput bg fld "retryDelay" into delaySecend ifreturn trueend Sq_Initon Sq_Startput " -x1" into uDebugput bg fld "spoolPath" into uupcSpoolput bg fld "uupcPath" into uupcPathput bg fld "uupcName" into uupcProput bg fld "remoteNode" into remoteNameput uupcPath & uupcPro into uupcApplput uupcPath & remoteName & uDebug into scriptFilerunLog "Open: '" & uupcPro & "' Script: '" & remoteName & uDebug & "'"global gLogFileBusyput false into gLogFileBusyreturn openUUPC(uupcAppl,scriptFile)end Sq_Starton delayTaskInitglobal lastTick,delaySecif delaySec 竕 0 thenput the ticks into lastTickaddNextTask "delayTask"runLog "Waiting for next retry (" & delaySec & " sec)"end ifreturn trueend delayTaskIniton delayTaskglobal lastTick,delaySecif (the ticks - lastTick) 竕･ (delaySec * 60) then return truereturn falseend delayTaskfunction openUUPC uupcAppl,uupcScript-- run uupc with scriptif there is a file uupcAppl then -- the programif there is not a file uupcScript thenget rCreateFile(uupcScript,"CALL","MIS4")end ifopen uupcScript with uupcApplreturn trueelsereturn falseend ifend openUUPCon Sq_idleglobal gLogFileBusyput bg fld "spoolPath" & "LOGFILE" into logFileput fileErr(logFile) into fileStatusif logLastStatus = 0 thenif gLogFileBusy thenreturn trueelsereturn falseend ifelseput true into gLogFileBusyreturn falseend ifend Sq_idleon Sq_endglobal sqRetry,uRetryif checkUUPCLog() thenput false into sqRetrysq_killelseif uRetry 竕 "竏" thenif uRetry 竕､ 0 thenkillCurSqrunLog "Fail to make connection after " &bg fld "dialRetry"&" retried"sq_killreturn trueend ifput uRetry - 1 into uRetryend ifput true into sqRetryrunLog "Call fail"repeatCurSqaddNextTask "delayTaskInit"end ifreturn trueend Sq_endon sq_killglobal sqRetryput false into sqRetryclose bg fld "uupcName" -- do not check the programs list,it doesn't shown.end sq_killfunction checkUUPCLogput bg fld "spoolPath" & "LOGFILE" into logFileif fileErr(logFile) 竕 0 then return falseopen file logFileread from file logFile at - 256 for 256close file logFileput it into logDatarepeat with k = number of lines of logData down to 2put line k of logData into thisLineput offset("(",thisLine) into bif b = 0 then next repeatput char (b + 1) to (length(thisLine) - 1) of thisLine into keyWif "chdir" is in keyW thenreturn trueelse if keyW = "Call failed" thenreturn falseelse if keyW = "Dial failed" thenreturn falseelse if keyW = "Busy" thenreturn falseend ifend repeatreturn trueend checkUUPCLog</script>
</part>
<name></name>
<script>on idlerunNextSqTaskend idle----窶｢窶｢----- sequence manageron initSqManagerglobal sqList,curSqRef,coreTaskList,curTaskList,gStartSqput false into gStartSqput bg fld "runSq" into sqListput "sq_init" & return &ﾂｬ"sq_start" & return &ﾂｬ"sq_idle" & return &ﾂｬ"sq_end" & return ﾂｬinto coreTaskListput 1 into curSqRefput coreTaskList into curTaskListput "Initializing sequences" into bg fld "display"bar initend initSqManageron runNextSqTaskglobal gStartSqif gStartSq thenput getNextSqTask() into sqTask-- runLog line 1 of sqTask && line 2 of sqTask --窶｢窶｢ debugif line 1 of sqTask 竕 "" thensend (line 2 of sqTask) to bg btn ("_" & line 1 of sqTask)-- curTaskDone --窶｢窶｢ debug-- wait 10 --窶｢窶｢ debugif the result = true thencurTaskDonebarend ifelseclose window (short name of this stack)end ifend ifend runNextSqTaskfunction getNextSqTaskglobal sqList,curSqRef,coreTaskList,curTaskListrepeatput line 1 of curTaskList into taskif task = "" thenput coreTaskList into curTaskListadd 1 to curSqRefelseexit repeatend ifend repeatput word 1 of line curSqRef of sqList into sqObj-- if sqObj = "" then-- put "endSq" into sqObj-- end ifreturn sqObj & return & taskend getNextSqTaskon startSqglobal gStartSqput true into gStartSqput "Processing sequences..." into bg fld "display"end startSqon pauseSqglobal gStartSqput false into gStartSqput "Sequences Paused" into bg fld "display"end pauseSqon killAllSqinitSqManagerend killAllSqon curTaskDoneglobal curTaskListdelete line 1 of curTaskListend curTaskDoneon stopSqglobal sqList,curSqRefsend "sq_kill" to bg btn ("_" & word 1 of line curSqRef of sqList)initSqManagerput "Sequences stopped" into bg fld "display"end stopSqon killCurSq-- skip the current sq and continue to nextglobal curTaskListput "" into curTaskListend killCurSqon repeatCurSq-- repeat the entire sq, first task 'sq_init' not included.global curTaskList,coreTaskListput line 1 of curTaskList & return & coreTaskList into curTaskListdelete line 2 of curTaskListend repeatCurSqon addNextTask taskName-- add the taskName into this curSq to execute nextglobal curTaskListput taskName & return & line 2 of curTaskList into line 2 of curTaskListend addNextTask---------------------------on runLog theMsgif there is a bg fld "runLog" thenglobal gLogDelim,gLogListput the long time & gLogDelim & theMsg & return into tput t after bg fld "runLog"put the date & gLogDelim & t after gLogListset scroll of bg fld "runLog" to ﾂｬ(number of lines of bg fld "runLog" * textHeight of bg fld "runLog")end ifend runLogon bar modeif mode = "init" thenput "" into bg fld "bar"return ""end ifglobal sqList,curSqRef,coreTaskList,curTaskList,gStartSqput number of lines of coreTaskList into taskNumput number of lines of sqList into sqNumput number of lines of curTaskList into cTaskNumput taskNum * sqNum into tolNumput (curSqRef * taskNum) - cTaskNum into tolXNumput (tolXNum/tolNum) * 32 into tif offset(".",t) 竕 0 then put char 1 to offset(".",t) - 1 of t into tput char 1 to t of "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" into bg fld "bar"global sqList,curSqRef-- put line curSqRef of sqList into bg fld "curSq"end bar</script>
![next >](/view/10866/HYPERLIB-1997-Winter-CD1.ISO.7z/HYPERLIB-1997-Winter-CD1.ISO/オンラインウェア/COM/Handy Mail 1.0b4 folder.sit/Handy Mail 1.0b4 folder/Handy Mail 1.0b5 Patch/Drag items to "Resources"/Run Sequences/BMAP_3818.png){kind=link}